home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / ear / archandl.lha / ARCHandler / Scripts / FromARC.dopus < prev    next >
Text File  |  1994-12-31  |  687b  |  33 lines
  1. /* Change DirectoryOpus directory from directory on Archives:
  2. ** to original directory. */
  3.  
  4. options results
  5.  
  6. status 13 "-1"
  7. dir=result
  8.  
  9. dir=strip(dir,'B','"')
  10. if left(dir,9)="Archives:" then
  11.   do
  12.     i=index(dir,':')
  13.     if i~=0 then
  14.       do
  15.         dir=substr(dir,i+1)
  16.         i=index(dir,'/')
  17.         if i~=0 then
  18.           dir=left(dir,i-1) || ':' || substr(dir,i+1)
  19.         else
  20.           dir=dir || ':'
  21.         i=lastpos('.lha',dir)
  22.         if i~=0 then
  23.           do
  24.             i=lastpos('/',dir,i)
  25.             if i~=0 then
  26.               dir=left(dir,i-1)
  27.             else
  28.               dir=left(dir,index(dir,':'))
  29.           end
  30.         ScanDir '"' || dir || '"'
  31.       end
  32.   end
  33.